home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
MacPerl 506 appl folder.sit
/
MacPerl 506 appl folder
/
Mac_Perl_506r1m_appl
/
lib
/
tainted.pl
< prev
next >
Wrap
Text File
|
1995-03-20
|
216b
|
12 lines
# This subroutine returns true if its argument is tainted, false otherwise.
die "tainted.pl not (yet) implemented on the Mac";
sub tainted {
local($@);
eval { kill 0 * $_[0] };
$@ =~ /^Insecure/;
}
1;